Mac-Source 1994 July/Mac-Source_July_1994.iso/Other Langs/Parallaxis_20/fractal.xrf

Text File | 1991-05-02 | 4KB | 374 lines

423310825

Q fractal.p
W
165 917 257 107 1
LEVEL 3
NOT 4
FRACTAL 5
SON_R 262
SCALAR 9
DIV 10
IN_CONNECTED 12
EOL 269
SEND 14
CHR 15
GREEN 272
EXCL 18
LOOP 19
CHAR 276
LAST 533
ELSE 31
SIRANDOM 33
CAP 35
UNTIL 36
STRCMP 37
TREE 38
WRITEREAL 39
POINTER 40
OF 43
READCARD 44
REPEAT 46
VBRANDOM 48
WRITE 49
TRUNC 50
DIM1 307
LOAD 51
WRITEBOOL 308
OR 55
ARCTAN2 57
FATHER 58
SUM 59
SIN 61
FIELD 318
ARCCOS 63
SIZE 64
A 66
PROCEDURE 70
REDUCE 72
SCRANDOM 329
TO 73
WRITELN 330
VECTOR 74
I 331
J 75
DEC 77
SELECTWINDOW 334
CONST 78
N 79
FLOAT 82
LINE 83
BOOLEAN 87
HALT 88
FIRST 89
X 346
OUT_LINECONNECTED 92
FALSE 93
SQRT 94
OPENWINDOW 95
TERMCH 352
OPENINPUT 98
SRRANDOM 103
INCL 360
AND 104
MOD 361
ARRAY 108
ELSIF 111
WRITECARD 113
TAN 117
ABS 120
FROM 124
NIL 125
CLOSEINPUT 382
SETPIXEL 126
ARCSIN 130
VIRANDOM 131
RECORD 135
OPENOUTPUT 137
COLOR 394
VAL 140
TYPE 146
VAR 403
RECEIVE 148
WITH 149
SET 153
PI 410
END 154
EXIT 411
WRITESTRING 155
HIGH 412
FOR 159
DO 160
SYSTEM 417
STORE 161
ENDPARALLEL 165
MAXNODE 422
OUT_CONNECTED 167
TRACE 424
MAX 168
NOTRACE 425
VCRANDOM 170
DISPOSE 427
WRITEINT 684
SETCOLOR 171
IF 172
CASE 174
THEN 179
MAXLEVEL 436
IN 180
GAUSS 183
INORDER 184
ARCTAN 186
MAX2 187
READSTRING 192
ORD 193
PROPAGATE 195
PARALLEL 196
CLOSEOUTPUT 199
VRRANDOM 201
INC 203
SBRANDOM 207
EXP 208
TRUE 465
EVEN 209
WHILE 210
DEBUG 467
GA 724
BY 213
RETURN 470
CONNECTION 215
CARDINAL 472
GF 729
BLUE 216
NODE 221
NEW 222
DELTA 479
IN_LINECONNECTED 224
BEGIN 225
MIDPOINTREC 482
READINT 227
READREAL 484
PRODUCT 230
STREQ 233
CONFIGURATION 236
BITSET 493
ODD 237
ID_NO 239
READBOOL 496
LOW 753
READ 241
MIN 243
LN 244
WRITEFIXPT 246
GETPIXEL 248
WINDOWSIZE 505
REAL 249
COS 251
DONE 252
RED 253
INTEGER 256
SON_L 513

S 121
69 3 14 1
69 168 14 3
69 187 14 4
69 479 10 1
69 243 14 2
2 422 14 127
69 221 14 1
70 0 10 1
70 59 10 2
2 66 14 32767
69 331 14 1
2 79 14 4
2 724 10 1
2 729 10 2
8 262 3 3
6 307 14 1
8 58 3 2
6 346 10 1
6 412 10 3
6 753 10 2
8 513 3 1
1 5
4 38 5 1
5 318 2 2
5 331 14 1
5 75 14 2
2 436 14 7
7 183 6
7 184 5
5 479 10 1
7 482 4
2 269 12 10
11 12
11 15
12 18
11 533
3 276 12
11 33
11 35
11 37
12 39
12 44
11 48
12 49
11 50
12 308
11 57
11 59
11 61
11 63
11 64
11 329
12 330
12 334
12 77
11 82
12 83
3 87 13
12 88
11 89
11 92
2 93 13 0
11 94
13 352
11 95
12 98
12 360
11 103
12 113
11 117
11 120
12 382
2 125 7 3
12 126
11 130
11 131
3 394 6
12 137
11 140
2 410 10 4
12 155
12 424
11 167
12 425
11 168
12 684
12 427
11 170
12 171
11 186
12 192
11 193
12 199
11 201
12 203
11 207
2 465 13 1
11 208
11 209
12 467
3 472 11
12 222
11 224
12 484
12 227
11 230
11 233
3 493 9
11 237
12 496
13 239
12 241
11 243
11 244
12 246
12 505
11 248
3 249 10
11 251
13 252
3 256 14

G 7
15 7 7 0 38 1 152 152 153
15 7 7 0 38 1 136 136 139
15 7 4 0 38 1 77 77 133
1 5 7 1 482 0 67 67 134
6 2 7 1 184 0 48 48 67
8 7 7 1 183 0 33 33 48
22 10 0 0 5 0 1 1 155

Z 40
76 153 155
75 151 153
73 146 149
72 142 146
71 141 151
71 139 151
69 138 139
68 137 138
67 136 137
66 135 139
62 133 134
59 130 131
59 126 127
59 118 132
58 117 118
57 116 117
56 115 116
55 114 115
53 99 133
49 92 98
48 77 99
47 76 133
45 74 76
44 72 74
43 70 72
39 67 134
37 66 67
35 62 66
34 61 62
33 55 61
32 52 55
31 50 66
28 48 67
26 46 48
25 43 46
24 38 41
24 37 43
24 35 43
23 34 35
14 33 48

T 14
11 0 14 1 127
6 0 1 10
13 0 38
11 0 14 1 127
6 0 4 0
7 394 1
10 125 0
11 0 14 0 31
9 493 8 0 31
4 249
11 472 14 0 32767
2 276
1 87
3 256

M 3
253 11 0
272 11 0
216 11 1

C 4
1 "3.46410"
1 "5.28596e-05"
1 "NIL"
1 "3.14159"

E